module Tipos where

type Fecha = Int
type Edad = Int
type Nombre = String

data Gusto =  Musica | Swinger | Pitufos | Deporte | MonaGimenez deriving (Show, Eq, Ord)
data Sexo = Femenino | Masculino deriving (Show, Eq)
data Guru = Conservador | Idealista | Desesperado deriving (Show, Eq)
data TipoDeLocal = Restaurant | Boliche | Pelotero | Bar deriving (Show, Eq)  
